From 46564c8d17466bc7d74c78109a0f7d710e268723 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 3 Jun 1993 21:02:22 +0000 Subject: [PATCH] (rmail-select-summary): Add a save-excursion. --- lisp/mail/rmail.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 6658185005d..d5b5349d7cb 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -170,11 +170,12 @@ Called with region narrowed to unformatted header.") (defmacro rmail-select-summary (&rest body) (` (progn (if (rmail-summary-displayed) (let ((window (selected-window))) - (unwind-protect - (progn - (pop-to-buffer rmail-summary-buffer) - (,@ body)) - (select-window window))) + (save-excursion + (unwind-protect + (progn + (pop-to-buffer rmail-summary-buffer) + (,@ body)) + (select-window window)))) (save-excursion (set-buffer rmail-summary-buffer) (progn (,@ body)))) -- 2.30.2